home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / dejagnu.lha / dejagnu-1.0.1 / tcl / testsuite / tcl.tests / tcl-test.exp
Text File  |  1993-04-12  |  2KB  |  72 lines
  1. #   Copyright (C) 1988, 1990, 1991, 1992 Free Software Foundation, Inc.
  2.  
  3. # This program is free software; you can redistribute it and/or modify
  4. # it under the terms of the GNU General Public License as published by
  5. # the Free Software Foundation; either version 2 of the License, or
  6. # (at your option) any later version.
  7. # 
  8. # This program is distributed in the hope that it will be useful,
  9. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11. # GNU General Public License for more details.
  12. # 
  13. # You should have received a copy of the GNU General Public License
  14. # along with this program; if not, write to the Free Software
  15. # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  16.  
  17. # Please email any bugs, comments, and/or additions to this file to:
  18. # bug-dejagnu@prep.ai.mit.edu
  19.  
  20. # This file was written by Rob Savoye. (rob@cygnus.com)
  21.  
  22. #
  23. # the initial work on the version of these tests from the tcl release was done
  24. # by Mary Ann May-Pumphrey of Sun Microsystems.
  25. #
  26. if $tracelevel then {
  27.     strace $tracelevel
  28.     }
  29.  
  30. expect_before buffer_full { error "Buffer full" }
  31. tcl_start
  32.  
  33. ###foreach file [glob -nocomplain $srcdir/$subdir/*.test] {
  34. foreach file [glob -nocomplain $srcdir/../tests/*.test] {
  35.     set command "unidentified test in $file"
  36.     send "source $file\n"
  37.     expect {
  38.     "source $file*\r\n\r\n\r\n" {
  39.         verbose "Sourcing test $file ..." 1
  40.         set timeoutmsg "Never got to the end of "
  41.         continue -expect
  42.     }
  43.     "\+\+\+*PASSED" {
  44.         regexp "\+\+\+\+ [file rootname [file tail $file]].* PASSED" $expect_out(buffer) tmp
  45.         pass [lindex $tmp 1]
  46.         continue -expect
  47.     }
  48.     "\+\+\+*FAILED" {
  49.         regexp "\+\+\+\+ [file rootname [file tail $file]].* FAILED" $expect_out(buffer) tmp
  50.         fail [lindex $tmp 1]
  51.         continue -expect
  52.     }
  53.     -re "^\r\n% $" {
  54.         verbose "$file done" 1
  55.         }
  56.     "*Error: bad option *" {
  57.         fail "$command (Got a bad option)"
  58.     }
  59.     timeout {
  60.         error "$timeoutmsg $file"
  61.     }
  62.     }
  63. }
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.